a 


Nn YONMNNNM 

nnn NNNNNY 

Nunn NNNNNYM 

nnn nnn nnn 

nw nw nnn 

nnn nnn Nn 

Nw nun nnn 

nnn Nun nnn 

Nw nnn “Nn 

nnn nun nn 

nnn nnn YVnwn 

MWnm Mw mnw 
MNWNNwW Mmnn 
NNMNNNUYN nnn 
NNNNMNM nnn 

eee 

mee 

bo 

ro 

od 

bee 


me re hh 
a oro 
a el el ee ee 


SSSSSSSSSS888s 


000000000 
000000000 
000000000 


SSSS8S8SS888888 
SSSSSSSSSS8SS8s 


SSSSSSSSSssssss 
S3S223_ 822383 


ccm 
lem Ea | 


OR A a OTE Ae ae AS 
F 13 
| **F ILE**1D**RTFILREAD 
| 
RRRRRRRR  =—sOaTTTTTITTTT FFFEFFFFFF LIII11 LL RRRRRRRR  EEEEEEEEEE  AAAAAA  DDDDDDDD 
RRRRRRRR  =—OTTTTTTTTTT «FRFFFFFFFF LIIII =o RRRRRRRR EEEEEEEEEE #AAAAAA = DDDDDDDD 
RR RR TT FF I] LL RR RR EE AA AA DD DD 
RR RR TT FF I] LL RR RR EE AA AA 0D DD 
RR RR TT FF I] LL RR RR EE AA AA DD DD 
RR RR TT FF I] LL RR RR EE AA AA DD DD 
' RRRRRRRR TT FFFFFFFF I] LL RRRRRRRR EEEEEEEE AA AA DD OD 
RRRRRRRR TT FEFFFFFEF I] LL RRRRRRRR  EEEEEEEE AA AA 0D DD 
RR RR TT FF II LL RR RR EE AAAAAAAAAA DD DD 
RR RR TT FF II LL RR RR EE AAAAAAAAAA DD DD 
RR ~—s RR TT FF II LL RR ORRTtsCé#E AA AA DD DD Sy 
RR RR 17 FF I] LL RR RR EE AA AA ODD DD a6 on 
RR RR TT FF IIIIII LLLLLLLLLL RR RR EEEEEEEEEE AA AA DDDDDDDD “ead 
RRR RR TT FF LIIIII LLLLLLLLLL RR RR EEEEEEEEEE AA AA DDDDDDDD a dee 
LL eeeeel SSSSSSSS 
LL LIIILI SSSSSSSS 
LL I] S$ 
LL II SS 
LL I] $$ 
LL 11 $$ 
LL Il SSSSSS 
LL I] SSSSSS 
LL I] S$ 
LL I] SS 
LL 1] SS 
LL I] $$ 
LLLLLLLLLL HII] SSSSSSSS 
LLLLLLLLLL eeeee SSSSSSSS 


Pa ee ee 


RTF ILREAD 
Table of contents 


1% 


G6 13 
= Lookup facility for RT-11 Files Struct 16-SEP-1984 00:00:43 VAX/VMS Macro v04-00 


ns 
LE = Looks up a file on an RT=-11 volume 


Page 


0 


wn 


Carol Peters 22 March 1979 
MODIFIED BY: 


v03-001 CwHO001 CW Hobbs 14-May-1983 
berrected the interpretation of RT-11 file attributes: 
file type a 4-bit field (not a byte) and TENTATIVE 
files s ould be treated as EMPTY files, not as fatal errors. 


v02-002 KTA0039 pert - Altmann 28-0c t-1981 
Change PSECT to YFILE EAD to match other boot 10. 
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= Lookup facility for RT=-11 hie Struct 16-SEP-19 :00:43 VAX/VMS Macro v04-00 Pa 1 
PrSee15Be S8i08:8s PARA YES Mag re vos Oe aarst P29 I, 
1 -TITLE RTFILREAD = Look facility for RT-11 Fil t 

Oe ea ces SEER 7 oes sens fe ne ee rset 

000 

44 5 ITITISITITITITIIIIITITITITIIITTLTITITITiTiLi TILT iii iii iiiiiiiiiiiiiiiiiiitiin 

;* 

00029 is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ° 
4 8 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
4 16 :* ALL RIGHTS RESERVED. * 

° ® 
$009 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copice * 
44 \ 3* ONLY IN ACCORDANCE WITH THE yes OF SUCH LICENSE AND WITH THE ®* 

000 135 3% eed ae OF THE ABOVE corynr ent NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 16 - TRANSFERRED. * 

4 7 
0000 18 ;* THE ge J IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 $0 :* CORPORATION. ® 
bY i 
0000 $$ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
44 ? :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
$ aa 
0000 5 ;* * 
9444 $ FRRRARRR AE AE RAE TE AEA A REET E RARER RA RARE AAR AA AAA ARER TATA ER HAART AAE ARETE 
0000 28 :++ 
0000 9; 
0000 0 ; FACILITY: 
0000 2 
444 3 3 Lookup facility for files located on a RT-11 Files Structure 

000 34 > ENVIRONMENT: 

000 > 3 
000 36 ; Runs at IPL 31, kernel mode, memory management is OFF, IS=1 
000 a7 3 (running on interrupt stack), and code must be PIC. 

0000 38 ; 
ip : ABSTRACT: 
41 : This module contains code to locate a named file on an RT-11 
4g : volume. 
45 ; 
44 ; AUTHOR: 
rf 3 
oF ; 
rk : 
50 ; 
i | 
4; 
7 
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‘vOe-b0d Dec loret tons . raat 90:09:46 BOOTS.SRCIJRTFILREAD.MAR; 1 
209 9 -SBTTL Declarations 
Bp 6¢ ; 
$3 65 ; Macros 
00 64 ; 
$00 $4 SDSCDEF String d i definiti 
3: String descriptor definitions 
000 89 SIODEF ; 1/0 function code definitions 
0000 68 SSSDEF 3; Status code definitions 
4464 $? 
000 0; 
8808 } ; Field definitions for RT-11 directory segments and directory entries. 
0000 os 
0000 74 SDEFINI RTF 
$600 5 SDEF RTF _W_NUMSEGS Numb f di 
WL ; Number o rectory segments 
00000002 0000 is -BLKW 1 ; available on this velune. 
0002 4 SDEF RTF _W_NEXTSEG ; Number of the next directory 
00000004 0002 7 -BLKW 1 3 segment after this one. 
0004 80 SDEF RTF _W_HIGHSEG ; Number of highest directory 
00000006 0004 81 -BLK 1 3; segment on this volume. 
0006 Ht SDEF RTF _W_EXTRBYTES : Number of extra bytes in each 
00000008 0006 8 . 1 3 directory entry. 
0008 84 SDEF RTF _W_STARTLBSN 3; LBN of the file described by 
0000000A 0008 85 -BLKW 1 :; first entry in this segment. 
000A 86 SDEF RTF _L_ENTRYONE ; First directory entry in 
0000000E BRA ti -BLKL 1 3; directory segment. 
00000000 4444 4 -=0 ; Reset base address. 
0000 91 SDEF RTF _W_STATUS ; Directory entry status. 
0000 92 SDEF RTF _B_EVENSTAT : Even byte of entry status. 
00000001 0000 93 -BLKB 1 
0001 94 SDEF RTF _B_ODDSTAT ; Odd byte of entry status. 
00000002 0001 95 -BLK 1 ; 
0002 96 SDEF RTF_L_F ILENAME 3 6-character RADSO format file 
00000006 0002 97 -BLKL 1 3 name. 
0006 98 SDEF RTF _W_FILTYPE : 3 characters of file type in 
00000008 0006 99 -BLKW 1 ; RADSO format. 
000 100 SDEF RTF_W_FILLENGTH 3 Length of file in blocks. 
0000000A 000 101 -BLKW 1 ; 
000A 19 SDEF RTF_B_CHAN_NUM ; Number of channel assigned to 
00000008 oben 10 -BCK 1 3 the entry's file. 
104 SDEF RTF _B_JOBNUM ; Number of job using the 
0000000c 0008 105 -BL 1 ; entry's file. 
000C 106 SDEF RTF _W_DATE ; Date of the entry's file. 
0000000E 48 107 -BLKW 1 : 
i 138 SDEF RTF _K_ENTLENGTH : Length of fixed entry. 
O00E 110 SDEFEND RTF 
$00 112 : Equated bol 
3; Equated symbols: 
000 118 : 
000 114 ; ‘ 
0000001 B60 115 RTF_C_TENTAFILE = 1 ; Tentative (open) file entry. 
0000002 0 116 RTF-C"EMPTYFILE = 2 3; Empty file entry. 
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Declarations 4-SEP-19 BOOTS. SRCIRTFILREAD. RAR; 1 
00000004 00 117 RTF _C_PERMAFILE = 4 : Permanent (normal) file. 
00000008 0000 118 RTF_C_ENDOFSEG = 8 3; End of segment entry. 

000 119 
00 120; 
000 121 ; Own storage. 
0000 = ¢ ; 
0000 1 
00000000 124 -PSECT YFILEREAD,LONG 
0000 125 
0000 126 ~SHOW EXPANSIONS 
0000 127 
0000 128 ~DEFAULT DISPLACEMENT, WORD 
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-SBTTL RTFSOPENFILE = Looks up a file on an RT=-11 volume 
p++ 
; Functional description: 


This routine translates an ASCII file name and type to RADSO. 
Then the routine toterprets an RT=-11 directory to see whether 
the named file is in the directory. If the file is present, this 
routine returns the starting LBN of the file and the file's 
length in blocks. 


The RT=-11 directory structure consists of 1-31 2-block directory 

segments. The first segment starts at block 6, and subsequent 

segments follows Sons teueusly; i.e., at blocks 2. 10, etc. Each 
ea 


segment starts with a 5-word der: 
eer eeeseerc ese seem new e eno eet ence oem mow eocacoce + 
H number of 2-block segments ; 


Serres een rot Bees ewe eer ss eee tee er ee we we = + 


ewes e teres eee em eoe eee ees ee es eee eee eee ee we ee} 


oon dS 


' 
' 
' 
' 
See sO PFS ee Tee Bee OM ADDER Te HEE Peewee oS + 
' 
‘ 
' 


woe nt nee tes ote eee oS ee wee SS ESS Ee See es See see} 


The segnent number field identifies the next segment to search. 
The LBN of the first block of a directory segment is 


6 + << segment_number-1 > * 2 > 


Following the directory segment header are the directory entries 
for this segment. A directory entry is 7+(n/2) words long: 


{__ status vord: tells type of file! 20 
i___ist_3 characters of filename in RADSO =: = :2 
i ___2nd 3 characters of filename in RADSO : = 4 
1.3 characters of filetype in RADSO 9: = 26 
a number of blocks in file ; os 
| ____Jod number ____! channel number 3A 
RRP ene nN ES A re 
“'n'’ extra words ' :€ 
TERIOR AE Be NAT 0 Me aS ; 


Bits 8-11 of the status word have the following meanings: 


-——---—— poset tases sitesi ipenianpanesta tithes 
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v04 RTF SOPENF ICE - Looks up a file on an RT- ae et 9 90:09: $3 BOOTS.SRCIRTFILREAD.MAR; 1 —_ ( 
187 ; 
° 1 8 5 1 sentative file (open), treat as empty 
189 ; 2 empty f te; length is the other valid field 
190 ; 4 normal file 
13) ; 10 end of segment marker 
BS 198 : The algorithm to lookup a file is the following: 
00 195 ; a) Get first segment. 
00 138 ; b) Compare target filename with each entry in segnent. 
00 197 ; ¢) If no match, get next segment, if any; gete b). 
3208 138 3 d) If match, compute starting LBN and length of file. 
B08 +44 3 e) Return. 
9009 4 ; Inputs: : 
9000 $8 ; FILE DESC(AP) = string descriptor of target file specification 
0000 04 ; DIRSEG_BLKS(AP) = address of 512-word buffer for the 2 blocks of 
0000 05 ; a directory segment 
0000 oe 3 STAT_BLOCK(AP) = address of a 2 longword block in which the 
43 4 : following is returned: 
0000 209: LBN of Ist block of file 
i444 19 ; size of files in blocks 
9009 lg ; Outputs: 
464 1% : RO - status code; can be the following: 
0000 18 : error codes from FILSCVTFILNAM: 
0000 2 SS$_BADFILENAME, file name too long or non 0 
0000 18; version # 
0000 Hh 3 error codes from FILSREAD_LBN: 
0000 220; SS$_BADIRECTORY, directory contains tentative 
0000 221; (non-closed) directory entries, 
0000 $$§ 3 or entries with an invalid 
0000 $$ 3 status field value 
464 ; : 3 SS$_NOSUCHFILE, file does not exist on volume 
000 3 ie: 
38 
2098 > Offsets to input arguments: 
00000004 000 g FILE DESC = 4 
00000008 000 DIRSEG BLKS = 8 
0000000C 09 : STAT_BCOCK = 12 
OFFC 0 § -ENTRY RTFSOPENFILE,- 
00 “M<R2,R3,R4,R5,R6O,R7,RB,RI,R10,R11> 
0003 | $39 ; 
$e rt : File name and type in RT-11 directories are in RADSO format. Convert 
0 41 ; ASCII file specification from ASCII to RADSO. Use a 3-longword block 
38 4 : on the stack to store the RADSO characters. 
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7E 
7E 
5E 
04 A 
0000' CF 09 
01 
04 AE 
05 
08 AE 
06 
50 60818 8F 
04 AE 06 AE 
55 = 06 
08 A 
55 
02 
QOOO'CF 6€ 
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PUSHL #2 
00 CALLG (SP) ,FILSREAD_LBN 
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lity for RT-11 Files” Struct i a -19 AX/VMS Macro V04-00 Pa 
- Lbok ks up a file on an RT- oat 7 9: 88: $3 BOOTS .SRCIRTFILREAD.MAR; 1 (3) 
44 

45 CLRQ (SP) ; Allocate and zero a 6-word 
23 CLRL =(SP) 3; temp storage block 
2 PUSHL SP 3 ool. A... ,, address as an 
rk PUSHL FILE DESC(AP) ; Push” sadress of file desc. 

50 CALLS #2,FILSCVTFILNAM Convert filename to RAD5O. 

2] BLBS RO,PACK_F ILNAM ; : On success, go pack filename. 
35 RET ; On failure, return with error. 
& ; 

55 : rau ee art es the file name into words 0-2, yhe file type. in 
2$ 3; word and the binary file version number in word 4. RT-11 

: 3; are Limited to 6-character file names, mgharacter tite types, and 

8 : no version numbers. Thus the block looks Like this: 
20 ; + + 

61 : : file name's 1st 3 characters : :0 

es : i file name's 2nd 3 characters H :2 

65 ; : must be zero : 74 

28 3 fe@weeeeacemoneaae Sete sa nos roam oa + 

67 ; : 3 character file type H 76 

68 3 oe eeoen own ee sos ner e ene eee seoeaee + 

69 ; H binary version number ' 78 

A : fm wreancaacnroe Seer TCOP®n was aoanawaean + 

Le : Confirm that these requirements are met. 

74 ° 

75 PACK_FILNAM: : Pack filename/type in : bytes. 
76 TSTW 4(SP) 3 Name 6 characters only? 

77 BNEQ BAD_F ILENAME z No. Name is too long. Branch. 
re TSTW ( ; Version number 0? 

BEQL MOVE _FILE_TYPE : Yes. Go pack file type. 

81 BAD_FILENAME : : File name is bad. 

8 MOVZWL #SS$_BADF ILENAME ,RO 3; No. Load error status code. 
o T ; Return to caller. 

85 MOVE_FILE_TYPE: 3; Pack RADSO file type 

ia MOvw = (SP) ,4(SP) Move file type into $rd word. 
39 Read in the first 2-block directory segment into the buffer supplied 
+ 3 aS an input argument. 

9 ° 

9 MOVL #6,R5 :; Directory segments begin at 
9¢ : LBN 6. 

9 READ SEGRE NT: Read a directory segment. 

9 PUSHL BIASEC_LKSCAP) Push input butter address. 

98 PUSHE R Send LBN to read. 


Number of proysents pushed. 
Read one block. 
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V04=0 RTFSOPENF ILE = Looks up a file on an RT- aes 90505: 48 BOOTS. SRCIRTFILREAD.MAR;1 2 3) 
0150 £8 00 8 BLBS RO,GET_2ND_BLK ; On success, go get 2nd block. 
| 04 3 p RET ; On failure, return with error. 
0 GET_2ND_BLK: ; Read 2nd block of segment 
SE 04 CO 00 0 = ADDL #4,SP ; Take argument count off stack. 
6E 8 03 0 INCL Sie ; Increment LBN to read. 
04 AE 00000200 BF C 8 0 ADDL #512,4(SP) ; Add a page to buffer address. 
O000'CF 02 FB 004 0 CALLS #2,F{LSREAD_LBN ; Read second block. The RET 
Bie 0 3 hy FELSREAD_LON cleans up 
; the stack. 
0150 €8 004 BLBS RO,START_DIRSEG ; On success, process seomerit. 
04 Ope RET ; On failure, return with error. 
005 H 
005 ; If this is the first directory segment, save the number of the highest 
005 3; open segment. Then prepare some registers for use during the scan 
Ope ; of this segment'’s directory entries: 
5 : R1 - address of directory segment 
5 ; R - address of current directory entry 
5 : R - number of bytes per directory entry 
5 3 R4 - starting LBN of the file described by the next 
5 3 directory entry 
; R5 - starting LBN of the current directory segment 
5 : R6 - status of a directory , ea 
; address of the statistics. lock from the argument List 
5 3 length cf file corresponding to a directory entry 


START_DIRSEG: ; Start processing segment. 
MOVL 


08 AC DIRSEG BLKS(AP) ,R1 ; Get address of segment buffer. 
MOVAB RIF_L_LENTRYONE(R1),R2. ; Address of first entry. 
MOVZWL RTF-W-EXTRBYTES(R1S,R3 ; Get extra byte count /entry. 
ADDL #RTF_R_ENTLENGTH,R3 ; Add to normal entry length. 
MOVZWL RTF_O_STARTLBN(R1),R4 ; Get Ist file's LBN. 


Now read one directory entry at a time. CASE on the status of the 


SAME ANI @§ OOO NAME WN SO OBDNAUES WN 9 ODNAUES WN — O OONAU EWN O OONOUS Wh 


WAWNVIN NAN AAI NAAAAWAANAANAAIAANANAINANNAINNNNANIANAINNWNINNIN ANNAN NNW AW 


PVPS BB BS BS BE EE NNN WINN IAIPPPIPINPOPUPUNINIDS 2 2 PP OO OO 


3 3 entry. Choices are 
06 3 tentative file (just add Length and go to next entry) 
06 3 empty entry (just add length and go to next entry) 
06 j normal file (compare with our file name) 
32 5 end of segment (move to next segment, if any) 
06 ‘ 
06 LOOK_AT_ENTRY: ; Examine an entry. 
56 O1A2 04 OO EF 006 EXTZV #0,#4,RTF_B ODDSTAT(R2),R6 ; Get the entry status. 
08 28 D1 006 CMPL RO, #RTF_C~ENDOF SEG : 1 end of segment marker, 
3 13 006 BEQL ENO_OF SEGMENT : branch to process it. 
01 56 »0D1 007 CMPL R6,PRTF_C_TENTAFILE : If entry describes an open 
ge 13 007 BEQL NEXT ENTRY ; tentative file, treat as empty. 
02 6 D1 007 CMPL R6,#RTF_C_EMPTYFILE 3; If entry describes empty 
1F 13 007 BEQL NEXT_ENTR ; space, add size, go to next. 
046 56 O01 of CMPL R6,#RTF_C_PERMAF ILE 3; If not a normal file, report 
38 «12 fi BNE& BAO_DIRECTORY 3 an error and return. 
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RTFSOPENFILE = Looks up a file on an RT- 4-SEP-1984 23:05:36 ([BOOTS.SRCIRTFILREAD.MAR;1 (3) 
7F 58 ; 
O07 38 ; Tnis directory entry describes a normal permanent file. Compare the 
ofr 4 ; file name and type. If they match, return the file statistics. 
O7F 362 ° 
02 A201 Bort $8 CMPL RTF _L_FILENAME(R2),= ; If file name doesn't match, 
6E bass 64 (SPJ ; move to next entry. 
14 12 008 65 BNEQ NEXT_ENTRY 3; Branch on no match. 
06 A2 Bi 0085 66 CMPW RTF_@ FILTYPE(R2),4(SP); If file type doesn’t match, 
OD 12 QO8A 67 BNEQ NEXT_ENTRY 3; move to next entry. 
oc AC D0 $5 oe MOVL STAT_BLOCK (AP) ,R6 ; Get address of statistics 
3 block. 
66 54 00 0990 $3 MOVL R4,(R6) : Return starting LBN of file. 
08 A2 3C 009 71 MOVZWL ETF _W_FILLENGTH(R2),- ; Return Length of file in 
04 A6 0096 i 4(RB) : blocks. 
0098 7 
0098 74; ; 
0098 75 ; RO still contains a success code from the Last call to READ_LBN. 
0098 376; 
0098 qe 
04 0098 78 RET ; Return with success. 
0099 379 
0099 380; | : 
0099 381 ; This — does not match the file specification. Compute the new 
0099 386 ; starting LBN of the next file, and move to the next directory entry. 
0099 383; 
0099 384 
0099 385 NEXT_ENTRY: ; Try another rire 
08 A2 3C 0099 386 MOVZWL RTF_W_FILLENGTH(R2),R6 ; Get Length of this file. 
54 56 CO 009D 387 ADDL R6,R4 ; Add to starting LBN. 
52 53 CO QOAO 388 ADDL R3,R2 : Compute address of next entry. 
CO 11 OOAS 389 BRB LOOK _AT_ENTRY ; Check out next entry. 
00A5S 390 
QOA5S 391 ; y 
QOAS 392 ; When an entry is an end-of-segment marker, move to the next segment, 
Boag $2 3: if any. Compute LBN of the new directory segment. Equation is 
QOAS 395; 6 + << segment_number - 1 > * 2> 
QOAS 396; - 
00AS 397 ; Then Loop back to read it into memory. 
OOAS 398 ; 
O0A5S 399 
OOAS 400 END_OF_SEGMENT: ; Look for another segment. 
02 Al 3C€ OOAS5 401 MOVZWL RTF_W_NEXTSEG(R1),R5 ; Get Link to next segment. 
12 13 OOA9 ane NO_SUCH_FILE : If null, return with error. 
55 D7 OOAB 40 DECL R5 ; Decrement segment number. 
55 01 78 QOAD 404 ASHL #1,R5,R5 ; Convert to segment modulo. 
55 06 CO 00B1 405 ADDL #6,R ; Add base LBN of segments. 
FF75 31 00B4 406 BRW READ_ SEGMENT ; Read new segment into memory. 
00B7 407 
00B7 408 ; : Z . ; 
00B7 409 ; The directory was inconsistent. Return with an error code. 
00B7 410; 
00B7 411 
0087 zit BAD_DIRECTORY: ; Load error status code. 
0828 8F 5 si AF MOVZWL #SS$_BADIRECTORY,RO : Directory is bad. 
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OBD 415 
OBD $18 : 
OBD 417 ; The file does not exist on this volume. 
OBD 213 3 
QOBD 41 
QOBD $39 NO_SUCH_FILE: ; Load error status code. 
50 0910 8F 3C OOBD 421 MOVZWL 9 #SS$_NOSUCHFILE,RO ; The file is not on the volume. 
04 poce ts§ RET 
00C 42 
00c3 424 ~ END 


<m 


tee 


- eC 


RTF ILREAD 
Symbol table 


BAD_DIRECTORY 


FILSREAD_LBN 
FILE DESC 
GET_2ND_BLK 
LOOR_AT"ENTR 
MOVE FICE TYPE 
NEXT ENTRY 
SOCH_FILE 
TFSOPENF ILE 
TF_B_CHAN_NUM 
RTF =B-s0BNUR 
T -B_JOBNU 
RTF_B_ODDSTA 
RTF_C ~ERPTYF ILE 
RTF_C_ENDOF SEG 
RTF_C_PERMAF ILE 
RTF_C_TENTAF ILE 
RTF_K_ENTLENGTH 
RTF_L_ENTRYONE 
are ~L_F ILENAME 
F-W_DATE 
RTE “W_EXTRBYTES 
RTF_W_FILLENGTH 
RTF_W_FILTYPE 
TF_W_HIGHSEG 
RTF_W_NEXTSEG 
RTF_W_NUMSEGS 


RTF_W_STARTLBN 
F~ ATU 


SS$_NOSUCHF 
START_DIRSEG 
STAT_BLOCK 


PSECT name 
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46-SEP-1984 90:09: 46 BOOTS.SRCJR TEILREAD.MAR:1 ’ (3) 
Attributes 
NOPIC USR CON ABS LCL ot NOEXE NORD NOWRT NOVEC BYTE 
NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC LONG 


————_—__—__---------—__—- 


“RTFILREAD 
; VAX-11 Macro Run Statistics 


Phase Page faults 
Initialization | 2 

Command processing 113 
Pass 1 290 
Symbol table sort 0 
Pass 94 
Symbol table output 6 
Psect synopsis output 1 

Cross-reference output 9 
Assembler run totals 53 


Macro Library name 
.$255$DUA28: (BOOTS .OBJ JBOOTS.MLB; 1 
_$255$DUA28: (SYS.OBJJLIB.MLB; 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 
TOTALS (all Libraries) 


LLL OO LLL CC Cat tet tt, 


The working set Limit was 1350 pages. 

46954 bytes (92 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 942 non-local and 0 Local symbols. 
4 source lines were read in Pass 1, producing 16 object records in Pass 2. 

11 pages of virtual memory were used to define 10 macros. 
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= Lookup facility for RT-11 Files Struct 16-SEP-1984 
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! Performance indicators ! 


tomas ne nae nna nase en mea} 


CPU Time 

9:00 
0:09: 8:50 
Bee 0:01.46 
0:00:01.71 
00:00:00.07 
00:00:00.02 
00:00:00.00 
00:00:12.26 


Elapsed Time 
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+ 
! Macro Library statistics ! 
+ 


See ee Re eee eee } 


Macros defined 


975 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RTFILREAD/OBJ=OBJ$:RTFILREAD MSRCS$:RTFILREAD/UPDATE=(ENHS:RTFILREAD) +EXECML$/LIB+LIB$:B00TS.MLB/LIB 
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